How can I extract the status from the channel in the Delphi JSON parser code